home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs20.d81 / firewrks.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  1KB  |  21 lines
  1. 10 PRINT"[147][158] HAPPY NEW YEAR FROM PCC 2!":POKE2040,13:DIMM(39),N(39)
  2. 15 P=832:Q=1:R=255:S=54296:V=53248
  3. 20 FORJ=0TO38:READK,L:M(J)=K:N(J)=L:NEXT:FORJ=0TO4:READK,L:POKEV+K,L:NEXT
  4. 25 POKEV,R-255*RND(0):Z=100*RND(0)+50
  5. 30 POKEV+39,Q:POKEP+18,16:FORY=230TOZSTEP-1:POKEV+1,Y:NEXT:POKES,15:POKES,0
  6. 35 POKE53281,1:FORJ=1TO3:NEXT:POKE53281,0:FORJ=0TO38:POKEP+M(J),N(J):NEXT
  7. 40 FORK=0TO300:NEXT:Q=Q+1:IFQ=8THENQ=1
  8. 45 FORJ=0TO38:POKEP+M(J),0:POKEV+1,PEEK(V+1)+1:FORK=0TO50:NEXT:NEXT
  9. 50 POKES,5:POKES,0:GOTO25
  10. 55 DATA019,040,016,017,022,016,013,130
  11. 56 DATA025,131,010,041,028,040,015,007
  12. 57 DATA017,192,007,108,006,030,008,240
  13. 58 DATA004,068,009,097,011,012,012,128
  14. 59 DATA014,002,001,131,000,003,002,128
  15. 60 DATA018,056,020,056,021,064,023,004
  16. 61 DATA024,129,026,002,027,006,029,192
  17. 62 DATA031,068,034,068,030,008,032,032
  18. 63 DATA037,198,033,016,035,016,040,130
  19. 64 DATA036,016,038,016,043,130,033,000
  20. 65 DATA021,001,032,000,023,001,029,001
  21.